home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Interactive 7
/
PC World Interactive 7.iso
/
share
/
hobi
/
solarsys
/
Solar.exe
/
0
/
RCDATA
/
TFRMBODY
/
TFRMBODY.txt
Wrap
Text File
|
1997-11-30
|
15KB
|
686 lines
object frmBody: TfrmBody
Left = 315
Top = 203
ActiveControl = comboName
BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
BorderStyle = bsDialog
Caption = 'Body Properties'
ClientHeight = 345
ClientWidth = 377
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 16
object lblBody: TLabel
Left = 13
Top = 12
Width = 56
Height = 16
AutoSize = False
Caption = '&Body:'
FocusControl = comboName
end
object shapeColor: TShape
Left = 296
Top = 272
Width = 73
Height = 25
Brush.Color = clYellow
end
object comboName: TComboBox
Left = 72
Top = 8
Width = 209
Height = 24
Style = csDropDownList
ItemHeight = 16
Sorted = True
TabOrder = 0
OnChange = comboNameChange
OnClick = comboNameClick
end
object pageBody: TPageControl
Left = 8
Top = 48
Width = 361
Height = 217
ActivePage = GeneralTab
MultiLine = True
TabOrder = 1
object GeneralTab: TTabSheet
Caption = 'General'
object lblMass: TLabel
Left = 107
Top = 75
Width = 56
Height = 16
AutoSize = False
Caption = '&Mass:'
FocusControl = editMass
end
object lblRadius: TLabel
Left = 107
Top = 115
Width = 56
Height = 16
AutoSize = False
Caption = 'Ra&dius:'
FocusControl = editRadius
end
object imgBody: TImage
Left = 9
Top = 18
Width = 79
Height = 79
Stretch = True
end
object Label1: TLabel
Left = 107
Top = 25
Width = 56
Height = 16
AutoSize = False
Caption = '&Name:'
FocusControl = EditName
end
object lblMassUnit: TLabel
Left = 296
Top = 75
Width = 57
Height = 16
AutoSize = False
Caption = 'unt/unt'
end
object lblRadiusUnit: TLabel
Left = 296
Top = 115
Width = 57
Height = 16
AutoSize = False
Caption = 'unt/unt'
end
object editMass: TEdit
Left = 163
Top = 71
Width = 126
Height = 24
TabOrder = 0
OnChange = PropChange
end
object editRadius: TEdit
Left = 162
Top = 111
Width = 127
Height = 24
TabOrder = 1
OnChange = PropChange
end
object butBrowse: TButton
Left = 8
Top = 110
Width = 81
Height = 27
Caption = '&Bro&wse...'
TabOrder = 2
OnClick = butBrowseClick
end
object EditName: TEdit
Left = 163
Top = 21
Width = 180
Height = 24
TabOrder = 3
OnChange = PropChange
end
end
object PositionTab: TTabSheet
Caption = 'Position'
object lblxpos: TLabel
Left = 13
Top = 34
Width = 68
Height = 16
AutoSize = False
Caption = '&X Position:'
FocusControl = editXPosition
end
object lblypos: TLabel
Left = 13
Top = 74
Width = 68
Height = 16
AutoSize = False
Caption = '&Y Position:'
FocusControl = editYPosition
end
object lblzpos: TLabel
Left = 13
Top = 114
Width = 68
Height = 16
AutoSize = False
Caption = '&Z Position:'
FocusControl = editZPosition
end
object lblXPositionUnit: TLabel
Left = 288
Top = 34
Width = 57
Height = 16
AutoSize = False
Caption = 'unt/unt'
end
object lblYPositionUnit: TLabel
Left = 288
Top = 74
Width = 57
Height = 16
AutoSize = False
Caption = 'unt/unt'
end
object lblZPositionUnit: TLabel
Left = 288
Top = 114
Width = 57
Height = 16
AutoSize = False
Caption = 'unt/unt'
end
object editXPosition: TEdit
Left = 84
Top = 30
Width = 197
Height = 24
TabOrder = 0
OnChange = PropChange
end
object editYPosition: TEdit
Left = 84
Top = 70
Width = 197
Height = 24
TabOrder = 1
OnChange = PropChange
end
object editZPosition: TEdit
Left = 84
Top = 110
Width = 197
Height = 24
TabOrder = 2
OnChange = PropChange
end
end
object VelocityTab: TTabSheet
Caption = 'Velocity'
object lblxvel: TLabel
Left = 13
Top = 34
Width = 68
Height = 16
AutoSize = False
Caption = '&X Velocity:'
FocusControl = editXVelocity
end
object lblYvel: TLabel
Left = 13
Top = 74
Width = 68
Height = 16
AutoSize = False
Caption = '&Y Velocity:'
FocusControl = editXVelocity
end
object lblzvel: TLabel
Left = 13
Top = 114
Width = 68
Height = 16
AutoSize = False
Caption = '&Z Velocity:'
FocusControl = editXVelocity
end
object lblXVelocityUnit: TLabel
Left = 288
Top = 34
Width = 57
Height = 16
AutoSize = False
Caption = 'unt/unt'
end
object lblYVelocityUnit: TLabel
Left = 288
Top = 74
Width = 57
Height = 16
AutoSize = False
Caption = 'unt/unt'
end
object lblZVelocityUnit: TLabel
Left = 288
Top = 114
Width = 57
Height = 16
AutoSize = False
Caption = 'unt/unt'
end
object editXVelocity: TEdit
Left = 84
Top = 30
Width = 197
Height = 24
TabOrder = 0
OnChange = PropChange
end
object editYVelocity: TEdit
Left = 84
Top = 70
Width = 197
Height = 24
TabOrder = 1
OnChange = PropChange
end
object editZVelocity: TEdit
Left = 84
Top = 110
Width = 197
Height = 24
TabOrder = 2
OnChange = PropChange
end
end
object AppearTab: TTabSheet
Caption = 'Object Appear'
object labelAppearYear: TLabel
Left = 16
Top = 96
Width = 41
Height = 16
AutoSize = False
Caption = 'Year:'
Enabled = False
end
object labelAppearMonth: TLabel
Left = 120
Top = 96
Width = 41
Height = 16
AutoSize = False
Caption = 'Month:'
Enabled = False
end
object labelAppearDay: TLabel
Left = 240
Top = 96
Width = 33
Height = 16
AutoSize = False
Caption = 'Day:'
Enabled = False
end
object labelAppearHour: TLabel
Left = 16
Top = 128
Width = 41
Height = 16
AutoSize = False
Caption = 'Hour:'
Enabled = False
end
object labelAppearMinute: TLabel
Left = 120
Top = 128
Width = 41
Height = 16
AutoSize = False
Caption = 'Minute:'
Enabled = False
end
object labelAppearSecond: TLabel
Left = 224
Top = 128
Width = 57
Height = 16
AutoSize = False
Caption = 'Second:'
Enabled = False
end
object radioAppearSpecify: TRadioButton
Left = 16
Top = 40
Width = 289
Height = 17
Caption = 'Let me specify when the object appears.'
TabOrder = 0
OnClick = AppearOptionClick
end
object radioAppearBegin: TRadioButton
Left = 16
Top = 16
Width = 297
Height = 17
Caption = 'Obj&ect appears at the beginning.'
Checked = True
TabOrder = 1
TabStop = True
OnClick = AppearOptionClick
end
object spinAppearMonth: TSpinEdit
Left = 168
Top = 96
Width = 49
Height = 26
Enabled = False
MaxValue = 12
MinValue = 1
TabOrder = 2
Value = 10
OnChange = spinAppearMonthChange
end
object spinAppearDay: TSpinEdit
Left = 280
Top = 96
Width = 49
Height = 26
Enabled = False
MaxValue = 31
MinValue = 1
TabOrder = 3
Value = 20
OnChange = PropChange
end
object spinAppearHour: TSpinEdit
Left = 56
Top = 128
Width = 57
Height = 26
Enabled = False
MaxValue = 24
MinValue = 1
TabOrder = 4
Value = 20
OnChange = PropChange
end
object spinAppearMinute: TSpinEdit
Left = 168
Top = 129
Width = 49
Height = 26
Enabled = False
MaxValue = 59
MinValue = 0
TabOrder = 5
Value = 25
OnChange = PropChange
end
object spinAppearSecond: TSpinEdit
Left = 280
Top = 128
Width = 49
Height = 26
Enabled = False
MaxValue = 59
MinValue = 0
TabOrder = 6
Value = 20
OnChange = PropChange
end
object spinAppearYear: TSpinEdit
Left = 56
Top = 96
Width = 57
Height = 26
Enabled = False
MaxValue = 9999
MinValue = 1
TabOrder = 7
Value = 1996
OnChange = spinAppearYearChange
end
object butAppearNow: TButton
Left = 256
Top = 64
Width = 75
Height = 25
Caption = '&Now'
Enabled = False
TabOrder = 8
OnClick = butAppearNowClick
end
end
object DisappearTab: TTabSheet
Caption = 'Object Disappear'
object labelDisappearYear: TLabel
Left = 16
Top = 96
Width = 41
Height = 16
AutoSize = False
Caption = 'Year:'
Enabled = False
end
object labelDisappearHour: TLabel
Left = 16
Top = 128
Width = 41
Height = 16
AutoSize = False
Caption = 'Hour:'
Enabled = False
end
object labelDisappearMonth: TLabel
Left = 120
Top = 96
Width = 41
Height = 16
AutoSize = False
Caption = 'Month:'
Enabled = False
end
object labelDisappearMinute: TLabel
Left = 120
Top = 128
Width = 41
Height = 16
AutoSize = False
Caption = 'Minute:'
Enabled = False
end
object labelDisappearDay: TLabel
Left = 240
Top = 96
Width = 33
Height = 16
AutoSize = False
Caption = 'Day:'
Enabled = False
end
object labelDisappearSecond: TLabel
Left = 224
Top = 128
Width = 57
Height = 16
AutoSize = False
Caption = 'Second:'
Enabled = False
end
object radioDisappearNo: TRadioButton
Left = 16
Top = 16
Width = 249
Height = 17
Caption = 'Obj&ect does not disappear.'
Checked = True
TabOrder = 0
TabStop = True
OnClick = DisappearOptionClick
end
object radioDisappearSpecify: TRadioButton
Left = 16
Top = 40
Width = 297
Height = 17
Caption = 'Let me specify when the object disappears.'
TabOrder = 1
OnClick = DisappearOptionClick
end
object spinDisappearYear: TSpinEdit
Left = 56
Top = 96
Width = 57
Height = 26
Enabled = False
MaxValue = 9999
MinValue = 1
TabOrder = 2
Value = 1996
OnChange = spinDisappearYearChange
end
object spinDisappearHour: TSpinEdit
Left = 56
Top = 128
Width = 57
Height = 26
Enabled = False
MaxValue = 24
MinValue = 1
TabOrder = 3
Value = 20
OnChange = PropChange
end
object spinDisappearMonth: TSpinEdit
Left = 168
Top = 96
Width = 49
Height = 26
Enabled = False
MaxValue = 12
MinValue = 1
TabOrder = 4
Value = 10
OnChange = spinDisappearMonthChange
end
object spinDisappearMinute: TSpinEdit
Left = 168
Top = 128
Width = 49
Height = 26
Enabled = False
MaxValue = 59
MinValue = 0
TabOrder = 5
Value = 25
OnChange = PropChange
end
object spinDisappearDay: TSpinEdit
Left = 280
Top = 96
Width = 49
Height = 26
Enabled = False
MaxValue = 31
MinValue = 1
TabOrder = 6
Value = 20
OnChange = PropChange
end
object spinDisappearSecond: TSpinEdit
Left = 280
Top = 128
Width = 49
Height = 26
Enabled = False
MaxValue = 59
MinValue = 0
TabOrder = 7
Value = 20
OnChange = PropChange
end
object butDisappearNow: TButton
Left = 256
Top = 64
Width = 75
Height = 25
Caption = '&Now'
Enabled = False
TabOrder = 8
OnClick = butDisappearNowClick
end
end
end
object butApply: TButton
Left = 264
Top = 309
Width = 100
Height = 28
Cancel = True
Caption = '&Apply'
Enabled = False
TabOrder = 2
OnClick = ButtonClick
end
object butCancel: TButton
Left = 152
Top = 309
Width = 102
Height = 28
Cancel = True
Caption = '&Cancel'
TabOrder = 3
OnClick = ButtonClick
end
object butOK: TButton
Left = 41
Top = 309
Width = 104
Height = 28
Caption = '&OK'
Default = True
TabOrder = 4
OnClick = ButtonClick
end
object checkboxTail: TCheckBox
Left = 96
Top = 272
Width = 105
Height = 25
Caption = '&Display Tail:'
TabOrder = 5
OnClick = checkboxTailClick
end
object butColor: TButton
Left = 216
Top = 272
Width = 75
Height = 25
Caption = '&Color...'
TabOrder = 6
OnClick = butColorClick
end
object butRemove: TButton
Left = 294
Top = 8
Width = 75
Height = 25
Caption = '&Remove'
TabOrder = 7
OnClick = ButtonClick
end
object sysColor: TColorDialog
Ctl3D = True
Top = 272
end
object sysOpen: TOpenDialog
DefaultExt = 'bmp'
FileEditStyle = fsEdit
Filter = 'Picture Files (*.bmp, *.dib)|*.bmp;*.dib|All Files (*.*)|*.*'
Title = 'Body Picture - Open'
Top = 301
end
end
